home *** CD-ROM | disk | FTP | other *** search
/ Yellows - Privacy (Deluxe) / Akira Gomi Photographs - Yellows: Privacy (Deluxe) - Disc 1.iso / footage / pict02.dxr / 00019.ls < prev    next >
Encoding:
Text File  |  1996-07-10  |  2.2 KB  |  101 lines
  1. global pict, precast, moviepos, foreframe, movieshow, g_pictpath, movieprepos, leftclist, rightclist, ctime, g_pause, qtframelist, qtchangedfrag, womannum
  2.  
  3. on checkkeytab
  4.   if the key = TAB then
  5.     set movieshow to 0
  6.     set the visible of sprite 23 to 0
  7.     set the visible of sprite 24 to 0
  8.     set the visible of sprite 29 to 0
  9.     set the keyDownScript to "checkkey0"
  10.     cursor(-1)
  11.     dontPassEvent()
  12.     startTimer()
  13.     if g_pause = 1 then
  14.       go("pa")
  15.     else
  16.       go("from")
  17.     end if
  18.   end if
  19.   if (the keyCode = 76) or (the keyCode = 36) then
  20.     go(1, womannum)
  21.   else
  22.     if the keyCode = 115 then
  23.       if objectp(g_image) then
  24.         g_image(mdispose)
  25.       end if
  26.       go(1, "@\..\MAINMENU")
  27.     end if
  28.   end if
  29.   if the key = "1" then
  30.     set delaytime to 120
  31.   end if
  32.   if the key = "2" then
  33.     set delaytime to 60
  34.   end if
  35.   if the key = "3" then
  36.     set delaytime to 30
  37.   end if
  38.   if the commandDown and (the keyCode = 12) then
  39.     cursor(-1)
  40.     if objectp(g_image) then
  41.       g_image(mdispose)
  42.     end if
  43.     dontPassEvent()
  44.     go(1, "@\..\QUIT")
  45.   end if
  46.   dontPassEvent()
  47. end
  48.  
  49. on checkitemp
  50.   global scastname
  51.   if rollOver(30) then
  52.     cursor(134)
  53.     go("left")
  54.   else
  55.     if rollOver(31) then
  56.       cursor(134)
  57.       go("right")
  58.     else
  59.       if rollOver(28) then
  60.         cursor(-1)
  61.         go("down")
  62.       else
  63.         cursor(-1)
  64.         if qtchangedfrag = 1 then
  65.           set qtchangedfrag to 0
  66.         end if
  67.         go("move")
  68.       end if
  69.     end if
  70.   end if
  71. end
  72.  
  73. on judgemovieshow
  74.   global scastname
  75.   if movieshow = 0 then
  76.     set movieshow to 1
  77.     set the keyDownScript to "checkkeyTAB"
  78.     dontPassEvent()
  79.     go("move")
  80.     set the member of sprite 24 to member (pict + getAt(qtframelist, moviepos)) of castLib scastname
  81.     set the visible of sprite 24 to 1
  82.     set the visible of sprite 29 to 1
  83.     set the visible of sprite 23 to 1
  84.     updateStage()
  85.   else
  86.     set movieshow to 0
  87.     cursor(-1)
  88.     set the visible of sprite 23 to 0
  89.     set the visible of sprite 24 to 0
  90.     set the visible of sprite 29 to 0
  91.     updateStage()
  92.     set the keyDownScript to "checkkey0"
  93.     dontPassEvent()
  94.     if g_pause = 1 then
  95.       go("pa")
  96.     else
  97.       go("from")
  98.     end if
  99.   end if
  100. end
  101.